home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Highspeed pascal.adf
/
Interface
/
Narrator.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
1KB
|
72 lines
Unit Narrator;
Interface
Uses Exec;
Type
tnarrator_rb = Record
message: tIOStdReq;
rate: Integer;
pitch: Integer;
mode: Integer;
sex: Integer;
ch_masks: pShortInt;
nm_masks: Integer;
volume: Integer;
sampfreq: Integer;
mouths: ShortInt;
chanmask: ShortInt;
numchan: ShortInt;
pad: ShortInt;
End;
tmouth_rb = Record
voice: tnarrator_rb;
width: ShortInt;
height: ShortInt;
shape: ShortInt;
pad: ShortInt;
End;
Const
MAXPITCH = $140;
DEFRATE = $96;
DEFFREQ = $56B8;
ND_NoMem = $FFFFFFFE;
ND_CantAlloc = $FFFFFFFA;
ND_ModeErr = $FFFFFFE8;
FEMALE = $1;
MINRATE = $28;
ND_RateErr = $FFFFFFEB;
MAXRATE = $190;
MINFREQ = $1388;
ND_FreqErr = $FFFFFFE7;
MAXFREQ = $6D60;
ND_PitchErr = $FFFFFFEA;
ND_PhonErr = $FFFFFFEC;
ND_SexErr = $FFFFFFE9;
ND_VolErr = $FFFFFFE6;
ROBOTICF0 = $1;
DEFSEX = $0;
ND_NoWrite = $FFFFFFF8;
DEFVOL = $40;
ND_UnitErr = $FFFFFFFB;
NATURALF0 = $0;
ND_Unimpl = $FFFFFFF9;
ND_Expunged = $FFFFFFF7;
MINVOL = $0;
MAXVOL = $40;
ND_MakeBad = $FFFFFFFC;
DEFPITCH = $6E;
ND_NoAudLib = $FFFFFFFD;
MALE = $0;
DEFMODE = $0;
MINPITCH = $41;
End.